home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Online / News / Thor / scripts / UQWK_SOUP.NComm.script < prev   
Encoding:
Text File  |  1996-11-11  |  3.0 KB  |  139 lines
  1. ; $VER: UQWK_SOUP.script 2.0 (29.9.94)
  2. ; UQWK_SOUP script for THOR and NComm
  3. ; Author: Petter Nilsen, Ultima Thule Software
  4. ;
  5. ; Expects the supplied GRAB unix script in the path on the
  6. ; remote machine.
  7. ;
  8. ; Will not delete the #?.out file after upload, this must be done
  9. ; with the requester that pops up when entering the BBS in THOR again
  10. ; before parsing.
  11. ;
  12.  
  13.     REQUEST OFF
  14.  
  15. ; If you do not supply a login name here, the script will use the 
  16. ; user name from the NComm phonebook.
  17. ; 
  18.     set $loginname = "pettern\n"        ; login name, don't forget the "\n"
  19.     set $shellprompt = "lightning:~>"    ; shell prompt on you unix system, change to fit
  20.  
  21.     cli $THORPath"bin/ScriptServ \""$BBSName"\" WRITECFG EV 0 EV 1"
  22.  
  23.     varfile "t:"$BBSName".CONFIG"
  24.  
  25.     readvar $CfgVer
  26.     readvar $BBSID
  27.     readvar $BBSType
  28.     readvar $Path
  29.     readvar $PostConf
  30.     readvar $UpLoadDir
  31.     readvar $UserName
  32.     readvar $UserStreet
  33.     readvar $UserAddress
  34.     readvar $UserCountry
  35.     readvar $UserPhone
  36.     readvar $NewFiles
  37.     readvar $AutoPDnl
  38.     readvar $AutoLogoff
  39.     readvar $UseColors
  40.     varfile close
  41.  
  42.     if !$CfgVer == "4" then message "Incompatible version of ScriptServ"
  43.     if !$CfgVer == "4" then goto AllDone
  44.  
  45.     cli "delete >nil: \"t:"$BBSName".CONFIG\""
  46.  
  47.     when "\r\nNO CARRIER\r\n" goto AllDone
  48. ;    when "Login incorrect" goto Login
  49.  
  50.     autoxfer off ; Turn off G&R commands
  51.     autoup off   ; Turn off Zmodem autoupload
  52.     autodown on  ; Turn on Zmodem autodownload
  53.  
  54.     menuselect TRANSLATE 1 0 ; Use ISO character set
  55.  
  56. ;
  57. ;***************** Login sequence
  58. ;
  59. Login:
  60.     converse "login:" $loginname
  61.     converse "Password:" "\p\n"
  62. ;
  63. ;***************** Do UQWK_SOUP packet handling
  64. ;
  65.     wait $shellprompt
  66.     send "\n"
  67.  
  68. eventLoop:
  69.     set $done = "FALSE"
  70.  
  71.     if !exists "t:"$BBSName".EVENTS" then goto HandleSOUP
  72.     varfile "t:"$BBSName".EVENTS"
  73.  
  74.     readvar $eventnr
  75.     readvar $event
  76.  
  77.     if $eventnr == "EOF" then goto evLoopEnd
  78.     if $event   == "EOF" then goto evLoopEnd
  79.  
  80.     if $event == "12" then gosub AutoLogOff
  81.  
  82.     if $event == "7769"  then set $done = "TRUE"
  83.  
  84.     if  $done == "TRUE" then cli "run >nil: "$THORPath"bin/ScriptServ \""$BBSName"\" DONE "$eventnr
  85.     if !$done == "TRUE" then cli "run >nil: "$THORPath"bin/ScriptServ \""$BBSName"\" ERROR "$eventnr
  86.  
  87.     goto eventLoop    
  88.  
  89. evLoopEnd:
  90.     varfile close
  91.  
  92. HandleSOUP:
  93.  
  94.     if exists $UpLoadDir$BBSID".out" then set $docmd = "grab -u\n"
  95.     if !exists $UpLoadDir$BBSID".out" then set $docmd = "grab -u -r\n"
  96.     
  97.     gosub DoCommand
  98.  
  99.     when "B01" upload $UpLoadDir$BBSID".out",Z
  100.  
  101.     send "\n\n"
  102.  
  103.     wait $shellprompt
  104.     cli "run >nil: sys:rexxc/rx 'address THOR.01 RESCAN'"
  105.     dlwhen
  106.     goto AllDone
  107.  
  108. ;************************************************
  109. DoCommand:
  110.     converse $shellprompt $docmd
  111.     return
  112.  
  113. ;************************************************
  114. ; Set the autologoff flag.
  115. ; Uses variables:
  116. ;  $boolean - Logoff (y/n)
  117. AutoLogOff:
  118.     readvar $boolean
  119.  
  120.     set $AutoLogoff = "y"
  121.     if $boolean == "0" then set $AutoLogoff = "n"
  122.     set $done = "TRUE"
  123.  
  124.     return
  125.  
  126. ;************************************************
  127. AllDone:
  128.     if $AutoLogoff == "n" then goto NoLogOut
  129.     gosub DoLogOut
  130.  
  131. NoLogOut:
  132.     request on
  133.     end
  134.  
  135. DoLogOut:
  136.     set $docmd = "logout\n"
  137.     gosub DoCommand
  138.  
  139.